Chip 2002 March/Chip_2002-03_cd1.bin/sharewar/rosoft/RosoftAudioToolsFree.exe/{app}/RosoftMediaPlayerLimited.exe/0/RCDATA/TFORMMEDIAPLAYER/TFORMMEDIAPLAYER.txt

Text File | 2002-03-03 | 6.7 KB | 294 lines

object FormMediaPlayer: TFormMediaPlayer
  Left = 216
  Top = 163
  Width = 573
  Height = 400
  HelpContext = 1000
  Caption = 'Rosoft Media Player'
  Color = clSilver
  Constraints.MinHeight = 295
  Constraints.MinWidth = 490
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clGreen
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object FMediaPlayer: TMediaPlayer
    Left = 304
    Top = 224
    Width = 225
    Height = 30
    VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject]
    AutoRewind = False
    Visible = False
    TabOrder = 0
  end
  object FStatusBar: TStatusBar
    Left = 0
    Top = 340
    Width = 565
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object lbFiles: TRSCheckListBox
    Left = 136
    Top = 136
    Width = 121
    Height = 97
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 2
    Order = loNoOrder
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 565
    Height = 64
    Align = alTop
    BevelInner = bvLowered
    Color = clGray
    TabOrder = 3
    object RSButton9: TRSButton
      Left = 2
      Top = 2
      Width = 561
      Height = 60
      Align = alClient
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object sbPrevious: TRSButton
      Left = 8
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image001.bmp>}
      Transparent = True
      OnClick = sbPreviousClick
    end
    object sbPause: TRSButton
      Left = 56
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image002.bmp>}
      Transparent = True
      OnClick = sbPauseClick
    end
    object sbPlay: TRSButton
      Left = 104
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image003.bmp>}
      Transparent = True
      OnClick = sbPlayClick
    end
    object sbNext: TRSButton
      Left = 152
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image004.bmp>}
      Transparent = True
      OnClick = sbNextClick
    end
    object sbStop: TRSButton
      Left = 216
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image005.bmp>}
      Transparent = True
      OnClick = sbStopClick
    end
    object sbejext: TRSButton
      Left = 264
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image006.bmp>}
      Transparent = True
      OnClick = miLoadMediaClick
    end
    object RSButton7: TRSButton
      Left = 416
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image007.bmp>}
      Transparent = True
      Visible = False
    end
    object sbClose: TRSButton
      Left = 464
      Top = 8
      Width = 42
      Height = 43
      Picture.Data = {<image008.bmp>}
      Transparent = True
      Visible = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 280
    Top = 120
    object mFile: TMenuItem
      Caption = '&Media'
      object NewMedia1: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = NewMedia1Click
      end
      object miLoadMedia: TMenuItem
        Caption = '&Load'
        ShortCut = 16460
        OnClick = miLoadMediaClick
      end
      object miSearch: TMenuItem
        Caption = 'S&earch'
        ShortCut = 16453
        OnClick = miSearchClick
      end
      object miSave: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = miSaveClick
      end
      object miSaveMediaAs: TMenuItem
        Caption = 'Save &As'
        ShortCut = 16449
        OnClick = miSaveMediaAsClick
      end
      object miDelete: TMenuItem
        Caption = '&Delete'
        OnClick = miDeleteClick
      end
      object miExit: TMenuItem
        Caption = 'E&xit'
        OnClick = miExitClick
      end
    end
    object mEdit: TMenuItem
      Caption = '&Edit'
      object miAdd: TMenuItem
        Caption = '&Add'
        ShortCut = 45
        OnClick = miAddClick
      end
      object miRemove: TMenuItem
        Caption = '&Remove'
        HelpContext = 1000
        ShortCut = 46
        OnClick = miRemoveClick
      end
      object miRemoveAll: TMenuItem
        Caption = 'Remove &All'
        OnClick = miRemoveAllClick
      end
    end
    object mOptions: TMenuItem
      Caption = '&Options'
      Checked = True
      object miPlayOrder: TMenuItem
        Caption = 'Play &Order'
        object miInOrder: TMenuItem
          Caption = '&In order'
          Checked = True
          RadioItem = True
          OnClick = SetOrderType
        end
        object miRandom: TMenuItem
          Caption = '&Random'
          RadioItem = True
          OnClick = SetOrderType
        end
      end
      object miAutoSave: TMenuItem
        Caption = '&Auto Save'
        Checked = True
        OnClick = miAutoSaveClick
      end
      object miBlackMediaList: TMenuItem
        Caption = '&Black Media List'
        Checked = True
        OnClick = miBlackMediaListClick
      end
      object miShowControls: TMenuItem
        Caption = 'Show &Controls'
        Checked = True
        OnClick = miShowControlsClick
      end
    end
    object mHelp: TMenuItem
      Caption = '&Help'
      object miAbout: TMenuItem
        Caption = '&About'
        OnClick = miAboutClick
      end
      object miIndex: TMenuItem
        Caption = '&Index'
      end
    end
  end
  object FSaveDialog: TSaveDialog
    HelpContext = 2300
    Options = [ofHideReadOnly, ofShowHelp, ofEnableSizing]
    Title = 'Save Media List'
    OnTypeChange = FSaveDialogTypeChange
    Left = 72
    Top = 184
  end
  object FOpenDialog: TOpenDialog
    HelpContext = 2100
    Filter =
      'Rosoft Media List (*.RML)|*.RML|MP3 Unit (*.MPU)|*.MPU|Text File' +
      ' (*.TXT)|*.TXT|All files (*.*), treated as text files|*.*'
    Options = [ofHideReadOnly, ofShowHelp, ofAllowMultiSelect, ofEnableSizing]
    Title = 'Save Media List'
    OnTypeChange = FOpenDialogTypeChange
    Left = 8
    Top = 104
  end
  object FSearchDialog: TOpenDialog
    HelpContext = 2200
    Filter =
      'Wave Files (*.wav)|*.wav|MP3 files (*.mp3)|*.mp3|Audio Video Fil' +
      'es (*.avi)|*.avi|Movie Files (*.mov)|*.mov'
    Options = [ofShowHelp, ofNoValidate, ofShareAware, ofOldStyleDialog, ofEnableSizing]
    Title = 'Search Media Files'
    Left = 8
    Top = 160
  end
  object Timer1: TTimer
    OnTimer = TimerTimer
    Left = 48
    Top = 136
  end
  object ImageList1: TImageList
    Left = 120
    Top = 104
  end
  object Timer180: TTimer
    Interval = 1200
    Left = 408
    Top = 104
  end
end